home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / logs / logbook / award.prg < prev    next >
Text File  |  1990-05-04  |  5KB  |  168 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: AWARD.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 05/04/90     12:17
  9. *:
  10. *:      Called by: LOGAWARD.PRG                  
  11. *:
  12. *:          Calls: AWARDEDT.PRG
  13. *:               : AWARDPRN.PRG
  14. *:               : LOGCHNGE.PRG
  15. *:
  16. *:           Uses: &AWARD         
  17. *:               : &NAWARD.DBF    
  18. *:
  19. *:        Indexes: &AWARD
  20. *:               : &NAWARD
  21. *:
  22. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  23. *:*********************************************************************
  24. CLEAR
  25. SET COLOR TO W+/R,W+/RB,BG+
  26. @ 5,11 SAY  'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.7'
  27. SET COLOR TO GR+/B,W+/RB,BG+
  28. @ 7,1 SAY   'Default AWARD database is'
  29. SET COLOR TO W+/R,W+/RB,BG+
  30. @ 7,30 SAY TRIM(award)
  31. SET COLOR TO GR+/B,W+/RB,BG+
  32. @ 8,1 SAY 'Default LOG database is'
  33. SET COLOR TO W+/R,W+/RB,BG+
  34. @ 8,30 SAY TRIM(logbook)
  35. SET COLOR TO GR+/B,W+/RB,BG+
  36.  
  37. @ 22,1 SAY 'What AWARD file '
  38. @ 22,25 GET award
  39. READ
  40. IF FILE(award+'.DBF')
  41. ELSE
  42.    ? 'WARNING:- AWARD FILE IS NOT ON DEFAULT DRIVE'
  43.    WAIT
  44. ENDIF
  45.  
  46. DO WHILE task <> '*'
  47.    CLEAR
  48.    SET COLOR TO W+/R,W+/RB,BG+
  49.    @ 5,11 SAY  'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.6'
  50.    SET COLOR TO GR+/B,W+/RB,BG+
  51.    @ 7,1 SAY   'Default AWARD database is'
  52.    SET COLOR TO W+/R,W+/RB,BG+
  53.    @ 7,30 SAY TRIM(award)
  54.    SET COLOR TO GR+/B,W+/RB,BG+
  55.    @ 8,1 SAY 'Default LOG database is'
  56.    SET COLOR TO W+/R,W+/RB,BG+
  57.    @ 8,30 SAY TRIM(logbook)
  58.    SET COLOR TO GR+/B,W+/RB,BG+
  59.    
  60.    @ 10,1 SAY 'UPDATE AWARD RECORDS                         U'
  61.    @ 11,1 SAY 'CREATE A NEW AWARD DATABASE                  C'
  62.    @ 12,1 SAY 'PRINT AWARD RECORDS                          P'
  63.    @ 13,1 SAY 'CHANGE AWARD DATABASE                        D'
  64.    @ 14,1 SAY 'CHANGE LOGBOOK                               L'
  65.    @ 15,1 SAY 'RE-INDEX Award file                          I'
  66.    @ 16,1 SAY 'DISPLAY FILES ON DISK DRIVE                  F'
  67.    @ 20,1 SAY 'QUIT THIS MENU                               *'
  68.    @ 22,1 SAY 'QRU'
  69.    
  70.    @ 22,5 GET task
  71.    READ
  72.    
  73.    DO CASE
  74.    CASE task = 'I'
  75.       USE &award
  76.       INDEX ON pc TO &award
  77.    CASE task = 'F'
  78.       CLEAR
  79.       ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  80.       diskdrive = SUBSTR(diskdrive,1,1)
  81.       STORE diskdrive + ':' TO diskdrive
  82.       DISPLAY Files ON &diskdrive
  83.       RELEASE diskdrive
  84.       WAIT
  85.    CASE task = 'D'
  86.       @ 22,1 SAY 'What AWARD file ? '
  87.       @ 22,25 GET award
  88.       READ
  89.       IF FILE(award+'.DBF')
  90.       ELSE
  91.          ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  92.          WAIT
  93.       ENDIF
  94.    CASE task = 'U'
  95.       IF logbook = '      '
  96.          @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  97.       ELSE
  98.          IF FILE(award+'.DBF')
  99.             IF FILE (logbook+'.DBF')
  100.                DO awardedt
  101.             ELSE
  102.                ? 'ERROR, LOGBOOK IS NOT PRESENT ON DESIGNATED DRIVE'
  103.                WAIT
  104.             ENDIF
  105.          ELSE
  106.             ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  107.             WAIT
  108.          ENDIF
  109.       ENDIF
  110.    CASE task = 'P'
  111.       IF FILE (award+'.DBF')
  112.          CLEAR
  113.          STORE ' ' TO choice
  114.          @ 5,1 SAY ' '
  115.          ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
  116.          @ 10,1 SAY ' '
  117.          IF choice = 'P' .or. choice = 'W' .or. choice = 'Q'
  118.             STORE ' ' TO pf
  119.             ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
  120.             DO awardprn
  121.             RELEASE pf
  122.          ELSE
  123.             ? choice,' IS NOT VALID, ENTER  P   or   W  or   Q only please '
  124.             WAIT
  125.          ENDIF
  126.       ELSE
  127.          ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  128.          WAIT
  129.       ENDIF
  130.    CASE task = 'C'
  131.       STORE '          ' TO BLANK
  132.       IF FILE(award+'.DBF')
  133.          ACCEPT 'What is the name of the new AWARD file ? ' TO naward
  134.          IF LEN( naward) = 1
  135.             ? '   ERROR   BLANK FILE NAMES NOT ALLOWED'
  136.             WAIT
  137.          ELSE
  138.             IF FILE(naward+'.DBF')
  139.                ? 'ERROR, FILE ALREADY EXISTS'
  140.                WAIT
  141.             ELSE
  142.                ?
  143.                ? 'CREATING blankaward FILE'
  144.                USE &award
  145.                COPY STRUCTURE TO &naward
  146.                USE &naward
  147.                INDEX ON pc TO &naward
  148.                STORE  naward TO  award
  149.                ?
  150.                ? 'NEW BLANK AWARD FILE CREATED'
  151.                USE
  152.             ENDIF
  153.          ENDIF
  154.          RELEASE BLANK,naward
  155.       ELSE
  156.          ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  157.          WAIT
  158.       ENDIF
  159.       
  160.    CASE task = 'L'
  161.       DO logchnge
  162.       
  163.    ENDCASE
  164. ENDDO
  165. STORE ' ' TO task
  166. RETURN
  167. *: EOF: AWARD.PRG
  168.